home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / chunky.lha / chunky / Pack32.ass < prev    next >
Encoding:
Text File  |  1980-12-16  |  268 b   |  19 lines
  1. ; Pack32(d0:L,d1:L,d2:L,d3:L)(L)
  2.  
  3.     machine    mc68020
  4.  
  5.     xdef    _Pack32
  6.  
  7. _Pack32
  8.     andi.l    #$ff,d0
  9.     andi.l    #$ff,d1
  10.     andi.l    #$ff,d2
  11.     andi.l    #$ff,d3    ; 000000bb
  12.     ror.l    #8,d0    ; aa000000
  13.     swap    d1    ; 00rr0000
  14.     lsl    #8,d2    ; 0000gg00
  15.     or.l    d1,d0
  16.     or.l    d2,d0
  17.     or.l    d3,d0    ; aarrggbb
  18.     rts
  19.